home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 60.zip
/
BS1 part 60
/
Agfa Fonts^5.adf
/
IntellifontSystemCheck
< prev
next >
Wrap
Text File
|
1992-02-12
|
4KB
|
156 lines
; This installer script will check for the Intellifont outline font engine.
; Before outlines can be installed, we must ensure the system has the
; outline engine installed and the latest version of:
; diskfont.library
; fountain
;
;
; diskfont.library version 37.58 and fountain version 37.10
; are shipped with AmigaDOS2.04
(set @default-dest "Fonts:_Bullet_Outlines")
; Before we begin the install, we need to check for Intellifont
;
; First, check version of system files: diskfont.library and fountain
; Second, check for Fonts:_bullet and Fonts:_bullet_outlines
; _Bullet contains Intellifont related files.
; _Bullet_outlines contains Intellifont Outlines.
; check if "fountain is loaded
(if (not (exists "sys:system/fountain"))
( ;no
(message "The \"Fountain\" program is not installed.\n "
" For information on Fountain, please consult your AmigaDOS manual ")
(abort " Sorry, your system is not configured correctly."
" Please refer to Appendix D in your AmigaDOS manual")
)
)
; check if Intellifont directory and support files are installed
;
(if (exists "fonts:_bullet")
(
;The new IF.SS contains additional TypeDirecter symbol sets
(set ifssSize (getsize "fonts:_bullet/if.ss"))
(if (< ifssSize 1)
(abort " Sorry, your system is not configured correctly."
" For information on the Outline Font Option,"
" please refer to your AmigaDOS manual"
)
)
(if (> 2000 ifssSize)
(
(run "copy fonts:_bullet/if.ss to fonts:_bullet/if.ss.org")
(copyfiles
(prompt "Copying new symbol set maps. With these maps, you can access"
" 585+ Intellifont characters, and the Agfa ITC Zapf Dingbats Outline ")
(help @copyfiles-help)
(source "df0:Intellifontfiles")
(dest "fonts:_bullet")
(pattern "if.ss")
(files)
(confirm)
)
)
)
; HQ3 files and a new IF.SS will be copied to _Bullet directory
(if (not (exists "fonts:_bullet/hq3updt.tyq"))
(copyfiles
(prompt "Copying all Intellifont support files.")
(help @copyfiles-help)
(source "df0:IntellifontFiles")
(dest "fonts:_bullet")
(pattern "HQ3#?.?#?")
(files)
(confirm)
)
)
)
(
(message
"The directory, Fonts:_Bullet, does not exist."
" Without this directory, the Agfa Intellifont fonts can not be used."
" \nTo install the Intellifont technology, please consult your AmigaDOS manual."
)
(abort " Sorry, your system is not configured correctly."
" For information on the Outline Font Option,"
" please refer to your AmigaDOS manual"
)
)
)
; check diskfont.lib version
; For AmigaDOS2.04, diskfont.lib version 37.58 must be installed
(set dskfontVer (getversion "sys:libs/diskfont.library"))
(set dskfontVer (/ dskfontVer 65535))
; if diskfont.lib version is less then 37, can't install
(if (not (>= dskfontVer 37))
(
(message"\n"
"Your current installed version of \"diskfont.library\" does not "
" support Agfa Intellifont Typefaces."
"\n"
" You need AmigaDOS2.04 with the Outline Font Option installed'\n' "
"\n"
" For additional information, please consult your AmigaDOS manual "
)
(abort "Sorry, your system is not properly configured."
" For additional information on installing the"
" Outline font option, please consult your AmigaDOS manual."
)
)
)
; if everything is setup, execute fountain for the user
(run "sys:system/fountain"
(prompt
"\n To Install Agfa Intellifont typefaces, please insert the typeface"
" disk, and select Proceed."
" \n \n This will execute the Fountain utility."
)
(help
" Fountain is the AmigaDOS system file that installs all Agfa Intellifont"
" Typeface Outlines. If you select Proceed, the installer will"
" execute Fountain. \n After Fountain completes its setup, set df0: as the"
" Outline Font Source."
)
(confirm)
)
(exit)